home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Various / DevDisk 65 (1989)(DevWare PD).zip / DevDisk 65 (1989)(DevWare PD).adf / prosuite / asmsupp.i < prev    next >
Text File  |  1990-07-11  |  1KB  |  95 lines

  1.  
  2. ;***********************************************************************
  3. ;
  4. ; asmsupp.i
  5. ;
  6. ; Copyright (c) 1986, Commodore Amiga Inc., All rights reserved
  7. ;
  8. ;***********************************************************************
  9.  
  10.  
  11. XLIB        MACRO
  12.         XREF    _LVO\1
  13.         ENDM
  14.  
  15. CALLSYS     MACRO
  16.         CALLLIB _LVO\1
  17.         ENDM
  18.  
  19. LINKSYS     MACRO
  20.         LINKLIB _LVO\1,\2
  21.         ENDM
  22.  
  23. LINKEXE     MACRO
  24.         XREF    SysBaseOffset
  25.         LINKSYS \1,SysBaseOffset(a6)
  26.         ENDM
  27.  
  28. CLEAR        MACRO
  29.         MOVEQ    #0,\1
  30.         ENDM
  31.  
  32. *BHS        MACRO
  33. *        IFC    '\0',''
  34. *            BCC    \1
  35. *        ENDC
  36. *        IFNC    '\0',''
  37. *            BCC.\0    \1
  38. *        ENDC
  39. *        ENDM
  40. *
  41. *BLO        MACRO
  42. *        IFC    '\0',''
  43. *            BCS    \1
  44. *        ENDC
  45. *        IFNC    '\0',''
  46. *            BCS.\0    \1
  47. *        ENDC
  48. *        ENDM
  49.  
  50. PUTMSG        MACRO
  51.         IFGE    INFOLEVEL-\1
  52.         XREF    KPutFmt
  53.         MOVEM.L D0/D1/A0/A1,-(SP)
  54.         LEA    16(sp),a1
  55.         LEA    msg\@,a0
  56.         JSR    KPutFmt
  57.         MOVEM.L (SP)+,D0/D1/A0/A1
  58.         BRA    end\@
  59. msg\@:        DC.B    \2,10,0
  60.         DS.W    0
  61. end\@:
  62.         ENDC
  63.         ENDM
  64.  
  65. SPUTMSG     MACRO
  66.         IFGE    INFOLEVEL-\1
  67.         XREF    KPutFmt
  68.         XREF    _SubsysName
  69.         PEA    _SubsysName
  70.         MOVEM.L D0/D1/A0/A1,-(SP)
  71.         LEA    16(sp),a1
  72.         LEA    msg\@,a0
  73.         JSR    KPutFmt
  74.         MOVEM.L (SP)+,D0/D1/A0/A1
  75.         ADDQ.L    #4,SP
  76.         BRA    end\@
  77. msg\@:        DC.B    \2,10,0
  78.         DS.W    0
  79. end\@:
  80.         ENDC
  81.         ENDM
  82.  
  83. * Here's an example of using the PUTMSG macros
  84. *   IFGE    INFOLEVEL-50
  85. *   SPUTMSG  50,<'[%s]ZText:'>
  86. *   MOVEM.L A0-A6,-(SP)
  87. *   PUTMSG  50,<'  A0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx'>
  88. *   LEA     7*4(SP),SP
  89. *   MOVEM.L D0-D7,-(SP)
  90. *   PUTMSG  50,<'  D0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx 7:%lx'>
  91. *   LEA     8*4(SP),SP
  92. *   ENDC
  93.  
  94.  
  95.